home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / games / rp / rp.s < prev    next >
Text File  |  2000-06-07  |  22KB  |  1,230 lines
  1.  
  2.     .include    DOSCALL.MAC
  3.     .include    IOCSCALL.MAC
  4.  
  5. Z_MUSIC    macro    func
  6.     moveq.l    func,d1
  7.     trap    #3
  8.     endm
  9.  
  10.     .text
  11.     .even
  12.  
  13.     lea.l    mysp,sp
  14.     suba.l    a1,a1
  15.     IOCS    _B_SUPER
  16.     move.l    d0,-(sp)
  17.  
  18.     move.l    #-1,d1
  19.     IOCS    _CRTMOD
  20.     move.l    d0,-(sp)
  21.     move.l    #$100+10,d1
  22.     IOCS    _CRTMOD
  23.     IOCS    _G_CLR_ON
  24.  
  25.     moveq.l    #2,d1
  26.     IOCS    _B_CLR_ST
  27.     IOCS    _B_CUROFF
  28.     IOCS    _SP_INIT
  29.     IOCS    _SP_ON
  30.     IOCS    _MS_INIT
  31.     moveq.l    #0,d1
  32.     IOCS    _SKEY_MOD
  33.  
  34.     move.l    #1,d0
  35.     bsr    se_play1
  36.  
  37.     lea.l    fname,a0
  38.     lea.l    BUF,a1
  39.     move.l    #128*1024,d1
  40.     bsr    READ_FILE
  41.  
  42.     lea.l    BUF+8,a0
  43.     lea.l    $C00000+512,a1
  44.     move.l    #256-1,d1
  45. LEAD:
  46.     move.l    #256-1,d0
  47. LEAD1:
  48.     move.w    (a0)+,(a1)+
  49.     dbra    d0,LEAD1
  50.     lea.l    512(a1),a1
  51.     dbra    d1,LEAD
  52.  
  53.     lea.l    fname1,a0
  54.     lea.l    BUF,a1
  55.     move.l    #128*1024,d1
  56.     bsr    READ_FILE
  57.  
  58.     lea.l    BUF+8,a0
  59.     lea.l    $C40000+512,a1
  60.     move.l    #256-1,d1
  61. LEAD2:
  62.     move.l    #256-1,d0
  63. LEAD3:
  64.     move.w    (a0)+,(a1)+
  65.     dbra    d0,LEAD3
  66.     lea.l    512(a1),a1
  67.     dbra    d1,LEAD2
  68.  
  69.     lea.l    sp_fname(pc),a0
  70.     lea.l    SPR(pc),a1
  71.     move.w    #384,d1
  72.     bsr    READ_FILE
  73.  
  74.  
  75.     lea.l    SPR(pc),a0
  76.     lea.l    $eb8000,a1
  77.     moveq.l    #96-1,d0
  78. spdef01:
  79.     move.l    (a0)+,(a1)+
  80.     dbra    d0,spdef01
  81.  
  82.     lea.l    pal_fname(pc),a0
  83.     lea.l    PAL(pc),a1
  84.     moveq.l    #32,d1
  85.     bsr    READ_FILE
  86.  
  87.     lea.l    PAL(pc),a0
  88.     lea.l    $e82220,a1
  89.     moveq.l    #8-1,d0
  90. paldef01:
  91.     move.l    (a0)+,(a1)+
  92.     dbra    d0,paldef01
  93.  
  94.  
  95. TITLE:
  96.     move.w    #256,$e80018
  97.     move.w    #256,$e8001c
  98.     move.w    #0,$e8001a
  99.     move.w    #0,$e8001e
  100.  
  101.     move.w    #120,$eb0010
  102.     move.w    #170+10,$eb0012
  103.     move.w    #%0000_0001_0000_0010,$eb0014
  104.     move.w    #%0000_0000_0000_0011,$eb0016
  105.  
  106. TITLE1:
  107.     IOCS    _MS_GETDT
  108.     swap.w    d0
  109.     cmpi.b    #0,d0
  110.     beq    TITLE3
  111.     bpl    TITLE1A
  112.     bra    TITLE2A
  113. TITLE1A:
  114.     move.w    #120,$eb0010
  115.     move.w    #204+10,$eb0012
  116.     move.l    #1,d0
  117.     bsr    se_play1
  118. TITLE1C:
  119.     addi.l    #$3800,d3
  120.     bvc    TITLE1C
  121. TITLE1B:
  122.     IOCS    _MS_GETDT
  123.     and.l    #$0000ff00,d0
  124.     cmpi.w    #$ff00,d0
  125.     beq    EXIT
  126.     IOCS    _MS_GETDT
  127.     swap.w    d0
  128.     cmpi.b    #0,d0
  129.     bmi    TITLE2
  130.     bra    TITLE1B
  131. TITLE2:
  132.     move.w    #120,$eb0010
  133.     move.w    #170+10,$eb0012
  134.     move.l    #1,d0
  135.     bsr    se_play1
  136. TITLE2C:
  137.     addi.l    #$3800,d3
  138.     bvc    TITLE2C
  139. TITLE2A:
  140.     IOCS    _MS_GETDT
  141.     and.l    #$0000ff00,d0
  142.     cmpi.w    #$ff00,d0
  143.     beq    TITLE3A
  144.     IOCS    _MS_GETDT
  145.     swap.w    d0
  146.     cmpi.b    #0,d0
  147.     bgt    TITLE1A
  148.     bra    TITLE2A
  149. TITLE3:
  150.     IOCS    _MS_GETDT
  151.     and.l    #$0000ff00,d0
  152.     cmpi.w    #$ff00,d0
  153.     beq    TITLE3A
  154.     bra    TITLE1
  155. TITLE3A:
  156.     move.w    #%0000_0001_0000_0010,$eb0014
  157.     move.w    #%0000_0000_0000_0000,$eb0016
  158.  
  159.     move.w    #0,$e80018
  160.     move.w    #0,$e8001c
  161.  
  162.     move.l    #1,d0
  163.     bsr    se_play1
  164.  
  165.  
  166.     bsr    BOXLINE
  167.     move.l    #0,d5
  168.     bsr    SCR_INIT
  169.     bsr    bgm_load
  170.     bmi    EXIT
  171.     moveq.l    #0,d0
  172.     bsr    bgm
  173.  
  174. loop:
  175.     bsr    MAINLOOP
  176.     cmpi    #0,d6
  177.     beq    sclear
  178.     bra    DEAD_TST
  179.  
  180. loop1:
  181.     moveq.l    #0,d1
  182.     IOCS    _BITSNS
  183.     btst.l    #1,d0
  184.     beq    loop
  185.  
  186. EXIT:
  187.     bsr    bgm_fo
  188.     moveq.l    #-1,d1
  189.     IOCS    _SKEY_MOD
  190.     move.l    (sp)+,d1
  191.     IOCS    _CRTMOD
  192.     IOCS    _B_CURON
  193.     move.l    (sp)+,a1
  194.     IOCS    _B_SUPER
  195.     DOS    _EXIT
  196.  
  197. sclear:
  198.     move.l    #0,d0
  199.     bsr    se_play1
  200.     addq.w    #1,ziki_kazu
  201.     add.w    #386,d5
  202.     cmpi.w    #6176,d5
  203.     bcc    clear
  204.     bsr    SCR_INIT
  205.     move.w    #128+8,ball_x
  206.     move.w    #224+7,ball_y
  207.     move.w    #224+7,old_y
  208.     move.w    #1,b_m_x
  209.     move.w    #0,b_m_y
  210.     bra    loop1
  211.  
  212. MAINLOOP:
  213.     bsr    BALL_S
  214.     bsr    PDL_MOVE
  215.     bsr    BALL_MOVE
  216.     bsr    WAIT_DISP
  217.     bsr    DISP_SPR
  218.     rts
  219.  
  220. DEAD_TST:
  221.     cmpi.w    #0,dead
  222.     bne    DEAD_TST1
  223.     bra    loop1
  224. DEAD_TST1:
  225.     cmpi.w    #0,ziki_kazu
  226.     beq    DEAD_TST2
  227.     move.w    #128+8,ball_x
  228.     move.w    #224+7,ball_y
  229.     move.w    #224+7,old_y
  230.     move.w    #1,b_m_x
  231.     move.w    #0,b_m_y
  232.     move.w    #0,dead
  233.     bra    loop1
  234. DEAD_TST2:
  235.     bsr    bgm_fo
  236.     move.w    #240,$eb0002
  237.     move.w    #%0000_0001_0000_0000,$eb0004
  238.     move.w    #%0000_0000_0000_0000,$eb0006
  239.  
  240.     move.w    #240,$eb000A
  241.     move.w    #%0000_0001_0000_0001,$eb000C
  242.     move.w    #%0000_0000_0000_0000,$eb000E
  243.     move.w    #0,dead
  244.     move.w    #4,ziki_kazu
  245.     bsr    SCR_INIT
  246.     bra    TITLE
  247.  
  248. BALL_S:
  249.     lea.l    b_m_y,a3
  250.     cmpi.w    #0,(a3)
  251.     beq    BALL_S1
  252.     rts
  253. BALL_S1:
  254.     IOCS    _MS_GETDT
  255.     and.l    #$0000ff00,d0
  256.     cmpi.w    #$ff00,d0
  257.     beq    BALL_S2
  258.     rts
  259. BALL_S2:
  260.     move.w    #-5,(a3)
  261.     rts
  262.  
  263. BALL_MOVE:
  264.     lea.l    b_m_y,a3
  265.     bsr    B_CHECK
  266.     cmpi.w    #0,(a0)
  267.     beq    ball_move5
  268.     neg    (a3)
  269.     cmpi.w    #$ff,(a0)
  270.     beq    ball_move6
  271.     bsr    B_FILL2
  272.     subi.w    #1,d6
  273.     move.l    #0,d0
  274.     bsr    se_play1
  275.     bra    ball_move5
  276.  
  277. ball_move6:
  278.     move.l    #1,d0
  279.     bsr    se_play1
  280.  
  281. ball_move5:
  282.     lea.l    old_y,a4
  283.     lea.l    ball_x,a0
  284.     lea.l    b_m_x,a1
  285.     lea.l    ball_y,a2
  286.  
  287.     move.w    (a2),(a4)
  288.     move.w    (a1),d0
  289.     add.w    d0,(a0)
  290.     move.w    (a3),d0
  291.     add.w    d0,(a2)
  292.  
  293.     cmpi.w    #224+7,(a2)
  294.     bcs    ball_move0
  295.     cmpi.w    #224+7,(a4)
  296.     bcc    ball_move0
  297.  
  298.     move.w    (a2),d0
  299.     subi.w    #224+7,d0
  300.     muls.w    (a1),d0
  301.     divs.w    (a3),d0
  302.     move.w    (a0),d1
  303.     sub.w    d0,d1
  304.  
  305.     move.w    pdl_x,d2
  306.     move.w    d2,d3
  307.     subi.w    #8,d2
  308.     addi.w    #24,d3
  309.     move.w    d1,(a0)
  310.     cmp.w    (a0),d2
  311.     bhi    ball_move0
  312.     cmp.w    (a0),d3
  313.     bcs    ball_move0
  314.  
  315.     move.w    #224+7,(a2)
  316.     neg.w    (a3)
  317.     add.w    #24,d2
  318.     add.w    #8,d1
  319.     sub.w    d2,d1
  320.  
  321.     bmi    bminus
  322.     move.w    #1,d7
  323.     bra    bminus1
  324. bminus:
  325.     move.w    #-1,d7
  326. bminus1:
  327.     asr.w    #2,d1
  328.     add.w    d7,d1
  329.     move.w    d1,(a1)
  330.     move.l    #1,d0
  331.     bsr    se_play1
  332.     rts
  333.  
  334. ball_move0:
  335.     cmpi.w    #196,(a0)
  336.     bcs    ball_move1
  337.     move.w    #196,(a0)
  338.     neg.w    (a1)
  339. ball_move1:
  340.     cmpi.w    #80-5,(a0)
  341.     bhi    ball_move2
  342.     move.w    #80-5,(a0)
  343.     neg.w    (a1)
  344. ball_move2:
  345.     cmpi.w    #32-4,(a2)
  346.     bhi    ball_move3
  347.     move.w    #32-4,(a2)
  348.     neg.w    (a3)
  349. ball_move3:
  350.     cmpi.w    #280,(a2)
  351.     bcs    ball_move4
  352.     move.w    #1,dead
  353.     lea.l    ziki_kazu,a1
  354.     subq.w    #1,(a1)
  355. ball_move4:
  356.     rts
  357.  
  358. PDL_MOVE:
  359.     IOCS    _MS_GETDT
  360.     and.l    #$ff000000,d0
  361.     rol.l    #8,d0
  362.     move.w    pdl_x,d1
  363.     add.b    d0,d1
  364.     move.w    d1,pdl_x
  365.     cmpi.w    #80,pdl_x
  366.     bls    low_x
  367.     cmpi.w    #176,pdl_x
  368.     bcc    hi_x
  369.     rts
  370. low_x:
  371.     move.w    #80,pdl_x
  372.     rts
  373. hi_x:
  374.     move.w    #176,pdl_x
  375.     rts
  376.  
  377. DISP_SPR:
  378.     move.w    pdl_x,$eb0000
  379.     move.w    #240,$eb0002
  380.     move.w    #%0000_0001_0000_0000,$eb0004
  381.     move.w    #%0000_0000_0000_0011,$eb0006
  382.  
  383.     move.w    pdl_x,d0
  384.     addi.w    #16,d0
  385.     move.w    d0,$eb0008
  386.     move.w    #240,$eb000A
  387.     move.w    #%0000_0001_0000_0001,$eb000C
  388.     move.w    #%0000_0000_0000_0011,$eb000E
  389.  
  390.     move.w    ball_x,$eb0010
  391.     move.w    ball_y,$eb0012
  392.     move.w    #%0000_0001_0000_0010,$eb0014
  393.     move.w    #%0000_0000_0000_0011,$eb0016
  394.  
  395.     move.w    #210,$eb0018
  396.     move.w    #200,$eb001a
  397.     move.w    #%0000_0001_0000_0010,$eb001c
  398.     move.w    #%0000_0000_0000_0000,$eb001e
  399.  
  400.     move.w    #220,$eb0020
  401.     move.w    #200,$eb0022
  402.     move.w    #%0000_0001_0000_0010,$eb0024
  403.     move.w    #%0000_0000_0000_0000,$eb0026
  404.  
  405.     cmpi.w    #1,ziki_kazu
  406.     bhi    DISP_SPR1
  407.     rts
  408.  
  409. DISP_SPR1:
  410.     move.w    #210,$eb0018
  411.     move.w    #200,$eb001a
  412.     move.w    #%0000_0001_0000_0010,$eb001c
  413.     move.w    #%0000_0000_0000_0011,$eb001e
  414.  
  415.     cmpi.w    #2,ziki_kazu
  416.     bhi    DISP_SPR2
  417.     rts
  418.  
  419. DISP_SPR2:
  420.     move.w    #220,$eb0020
  421.     move.w    #200,$eb0022
  422.     move.w    #%0000_0001_0000_0010,$eb0024
  423.     move.w    #%0000_0000_0000_0011,$eb0026
  424.     rts
  425.  
  426. READ_FILE:
  427.     clr.w    -(sp)
  428.     pea.l    (a0)
  429.     DOS    _OPEN
  430.     addq.l    #6,sp
  431.     move.l    d0,d2
  432.     bmi    EXIT
  433.  
  434.     move.l    d1,-(sp)
  435.     pea.l    (a1)
  436.     move.w    d2,-(sp)
  437.     DOS    _READ
  438.     lea    10(sp),sp
  439.  
  440.     move.w    d2,-(sp)
  441.     DOS    _CLOSE
  442.     addq.w    #2,sp
  443.  
  444.     rts
  445.  
  446. WAIT_DISP:
  447.     lea.l    $e88001,a0
  448.     moveq.l    #4,d0
  449. waitdisp1:
  450.     btst.b    d0,(a0)
  451.     beq    waitdisp1
  452. waitdisp2:
  453.     btst.b    d0,(a0)
  454.     bne    waitdisp2
  455.     rts
  456.  
  457. BOXLINE:
  458.     lea.l    box_l,a1
  459.     IOCS    _BOX
  460.     rts
  461.  
  462. SCR_INIT:
  463.     lea.l    $c04482,a0
  464.     movea.l    a0,a2
  465.  
  466.     move.l    #24-1,d2
  467. SCR_INIT01:
  468.     movea.l    a2,a0
  469.     moveq.l    #8-1,d1
  470. SCR_INIT02:
  471.     bsr    B_FILL2
  472.     adda.l    #32,a0
  473.     dbra    d1,SCR_INIT02
  474.  
  475.     adda.l    #1024*8,a2
  476.     dbra    d2,SCR_INIT01
  477.  
  478.  
  479.     moveq.l    #15,d7
  480.     lea.l    $c04482,a0
  481.     movea.l    a0,a2
  482.     lea.l    men_dat1,a5
  483.     adda.w    d5,a5
  484.     move.w    384(a5),d6
  485.     movea.l    a5,a4
  486.  
  487.     move.l    #24-1,d2
  488. SCR_INIT1:
  489.     movea.l    a2,a0
  490.     moveq.l    #8-1,d1
  491. SCR_INIT2:
  492.     cmpi.w    #0,(a4)+
  493.     beq    SCR_INIT3
  494.     subq.l    #2,a4
  495.     cmpi.w    #2,(a4)+
  496.     beq    B_FILLW
  497. SCR_INIT2A
  498.     bsr    B_FILL
  499. SCR_INIT3:
  500.     adda.l    #32,a0
  501.     dbra    d1,SCR_INIT2
  502.  
  503.     adda.l    #1024*8,a2
  504.     dbra    d2,SCR_INIT1
  505.     rts
  506.  
  507. B_FILL:
  508.     movea.l    a0,a1
  509.     moveq.l    #6-1,d0
  510.     addq.l    #1,d7
  511. B_FILL1:
  512.     move.w    d7,(a1)
  513.     move.w    d7,2(a1)
  514.     move.w    d7,4(a1)
  515.     move.w    d7,6(a1)
  516.     move.w    d7,8(a1)
  517.     move.w    d7,10(a1)
  518.     move.w    d7,12(a1)
  519.     move.w    d7,14(a1)
  520.     move.w    d7,16(a1)
  521.     move.w    d7,18(a1)
  522.     move.w    d7,20(a1)
  523.     move.w    d7,22(a1)
  524.     move.w    d7,24(a1)
  525.     move.w    d7,26(a1)
  526.     adda.l    #1024,a1
  527.     dbra    d0,B_FILL1
  528.     rts
  529.  
  530. B_FILLW:
  531.     movea.l    a0,a1
  532.     moveq.l    #6-1,d0
  533. *    addq.l    #1,d7
  534. B_FILLW1:
  535.     move.w    #$ff,(a1)
  536.     move.w    #$ff,2(a1)
  537.     move.w    #$ff,4(a1)
  538.     move.w    #$ff,6(a1)
  539.     move.w    #$ff,8(a1)
  540.     move.w    #$ff,10(a1)
  541.     move.w    #$ff,12(a1)
  542.     move.w    #$ff,14(a1)
  543.     move.w    #$ff,16(a1)
  544.     move.w    #$ff,18(a1)
  545.     move.w    #$ff,20(a1)
  546.     move.w    #$ff,22(a1)
  547.     move.w    #$ff,24(a1)
  548.     move.w    #$ff,26(a1)
  549.     adda.l    #1024,a1
  550.     dbra    d0,B_FILLW1
  551.     bra    SCR_INIT3
  552.  
  553. B_FILL2:
  554.     movea.l    a0,a1
  555.     moveq.l    #6-1,d0
  556. B_FILL3:
  557.     move.w    #0,(a1)
  558.     move.w    #0,2(a1)
  559.     move.w    #0,4(a1)
  560.     move.w    #0,6(a1)
  561.     move.w    #0,8(a1)
  562.     move.w    #0,10(a1)
  563.     move.w    #0,12(a1)
  564.     move.w    #0,14(a1)
  565.     move.w    #0,16(a1)
  566.     move.w    #0,18(a1)
  567.     move.w    #0,20(a1)
  568.     move.w    #0,22(a1)
  569.     move.w    #0,24(a1)
  570.     move.w    #0,26(a1)
  571.     adda.l    #1024,a1
  572.     dbra    d0,B_FILL3
  573.  
  574.     rts
  575.  
  576. B_CHECK:
  577.     move.w    ball_x,d0
  578.     add.l    #8,d0
  579.     lsr.l    #4,d0
  580.     lsl.l    #4,d0
  581.     sub.l    #16,d0
  582.     lsl.l    #1,d0
  583.  
  584.     move.w    ball_y,d1
  585.     lsr.l    #3,d1
  586.     lsl.l    #3,d1
  587.     sub.l    #8,d1
  588.     lsl.l    #8,d1
  589.     lsl.l    #2,d1
  590.  
  591.     move.l    #$c00000,d2
  592.     add.l    #1026,d2
  593.     add.l    d0,d2
  594.     add.l    d1,d2
  595.     movea.l    d2,a0
  596.     rts
  597.  
  598. clear:
  599.     bsr    bgm_fo
  600.  
  601.     move.w    #256,$e80018
  602.     move.w    #256,$e8001c
  603.     move.w    #256,$e8001a
  604.     move.w    #256,$e8001e
  605.  
  606.     move.w    #240,$eb0002
  607.     move.w    #%0000_0000_0000_0000,$eb0006
  608.     move.w    #240,$eb000A
  609.     move.w    #%0000_0000_0000_0000,$eb000E
  610.     move.w    #%0000_0000_0000_0000,$eb0016
  611.     move.w    #%0000_0000_0000_0000,$eb001E
  612.     move.w    #%0000_0000_0000_0000,$eb0026
  613.  
  614. clear1:
  615.     IOCS    _MS_GETDT
  616.     and.l    #$0000ff00,d0
  617.     cmpi.w    #$ff00,d0
  618.     bne    clear1
  619.  
  620.     move.w    #256,$e80018
  621.     move.w    #256,$e8001c
  622.     move.w    #0,$e8001a
  623.     move.w    #0,$e8001e
  624.  
  625. TIM:
  626.     addi.l    #$1000,d3
  627.     bvc    TIM
  628.  
  629.     move.w    #128+8,ball_x
  630.     move.w    #224+7,ball_y
  631.     move.w    #224+7,old_y
  632.     move.w    #1,b_m_x
  633.     move.w    #0,b_m_y
  634.     move.w    #0,dead
  635.     move.w    #3,ziki_kazu
  636.     bsr    SCR_INIT
  637.     bra    TITLE
  638.  
  639.  
  640. bgm_load:
  641.     lea.l    bgm_fname(pc),a0
  642.     lea.l    bgm_buf(pc),a1
  643.     move.w    #737,d1
  644.     bsr    READ_FILE
  645.     rts
  646.  
  647. bgm:
  648.     movem.l    d0-d2/a0-a1,-(sp)
  649.     add.w    d0,d0
  650.     add.w    d0,d0
  651.     lea    bgm_buf,a1
  652.     add.w    #7,a1
  653.     moveq.l    #0,d2
  654.     Z_MUSIC    #$11
  655.     movem.l    (sp)+,d0-d2/a0-a1
  656.     rts
  657.  
  658. bgm_fo:
  659.     movem.l    d0-d2/a0-a1,-(sp)
  660.     moveq.l    #16,d2
  661.     Z_MUSIC    #$1a
  662.     movem.l    (sp)+,d0-d2/a0-a1
  663.     rts
  664.  
  665. se_play1:
  666.     movem.l    d0-d2/a0-a1,-(sp)
  667.     add.w    d0,d0
  668.     move.w    se_tbl(pc,d0.w),d0
  669.     lea.l    se_tbl(pc,d0.w),a1
  670.     moveq.l    #7,d2
  671.     Z_MUSIC    #$12
  672.     movem.l    (sp)+,d0-d2/a0-a1
  673.     rts
  674.  
  675.     .data
  676.     .even
  677.  
  678. se_tbl:
  679.     .dc.w    se0-se_tbl
  680.     .dc.w    se1-se_tbl
  681. se0:
  682.     .dc.b    $00,$01
  683.     .dc.b    $00,$00,$00,$02
  684.     .dc.b    $00,$07
  685.     .dc.b    $a0,$0c,$b6,$05,$b3,$d1,$00,$00
  686.     .dc.b    $00,$00,$e6,$00,$3c,$e8,$00,$18,$ff,$ff,$d6,$00,$03,$00,$00,$e0
  687.     .dc.b    $39,$00,$0c,$ff,$ff,$00,$00,$00,$40,$00,$01,$45,$48,$ff,$e0,$45
  688.     .dc.b    $00,$0c,$00,$0c,$00,$00,$ff,$c0,$00,$ff,$ff
  689.     .dc.b    $80,$01,$01
  690.     .even
  691. se1:
  692.     .dc.b    $00,$01
  693.     .dc.b    $00,$00,$00,$02
  694.     .dc.b    $00,$06
  695.     .dc.b    $a0,$07,$b6,$02,$b3,$d1,$00,$00
  696.     .dc.b    $00,$00,$64,$01,$ff,$73,$01,$ff,$54,$01,$ff,$56,$01,$ff,$70,$01
  697.     .dc.b    $ff,$e0,$65,$00,$18,$00,$18,$00,$00,$00,$20,$00,$01,$b0,$ff
  698.     .dc.b    $80,$01,$01
  699.     .even
  700.  
  701. bgm_fn:    .dc.b    'rp.zmd',0
  702.     .even
  703.  
  704. box_l:
  705.     .dc.w    63,15,192,256,15,$ffff
  706.  
  707. men_dat0:
  708.     .dc.w    0,0,0,0,0,0,0,0
  709.     .dc.w    0,0,0,0,0,0,0,0
  710.     .dc.w    0,0,0,0,0,0,0,0
  711.     .dc.w    0,0,0,0,0,0,0,0
  712.     .dc.w    0,0,0,0,0,0,0,0
  713.     .dc.w    0,0,0,0,0,0,0,0
  714.     .dc.w    0,0,0,0,0,0,0,0
  715.     .dc.w    0,0,0,0,0,0,0,0
  716.     .dc.w    0,0,0,0,0,0,0,0
  717.     .dc.w    0,0,0,0,0,0,0,0
  718.     .dc.w    0,0,0,0,0,0,0,0
  719.     .dc.w    0,0,0,0,0,0,0,0
  720.     .dc.w    0,0,0,0,0,0,0,0
  721.     .dc.w    0,0,0,0,0,0,0,0
  722.     .dc.w    0,0,0,0,0,0,0,0
  723.     .dc.w    0,0,0,0,0,0,0,0
  724.     .dc.w    0,0,0,0,0,0,0,0
  725.     .dc.w    0,0,0,0,0,0,0,0
  726.     .dc.w    0,0,0,0,0,0,0,0
  727.     .dc.w    0,0,0,0,0,0,0,0
  728.     .dc.w    0,0,0,0,0,0,0,0
  729.     .dc.w    0,0,0,0,0,0,0,0
  730.     .dc.w    0,0,0,0,0,0,0,0
  731.     .dc.w    0,0,0,0,0,0,0,0
  732.     .dc.w    0
  733.  
  734. men_dat1:
  735.     .dc.w    2,2,2,2,2,2,2,2
  736.     .dc.w    2,2,2,2,2,2,2,2
  737.     .dc.w    1,1,1,1,1,1,1,1
  738.     .dc.w    1,1,1,1,1,1,1,1
  739.     .dc.w    0,0,0,0,0,0,0,0
  740.     .dc.w    0,0,0,0,1,1,1,1
  741.     .dc.w    0,0,0,0,1,1,1,1
  742.     .dc.w    0,0,0,0,1,1,1,1
  743.     .dc.w    0,0,0,0,1,1,1,1
  744.     .dc.w    0,0,0,0,0,0,0,0
  745.     .dc.w    0,0,0,0,0,0,0,0
  746.     .dc.w    0,0,0,0,0,0,0,0
  747.     .dc.w    0,0,0,0,0,0,0,0
  748.     .dc.w    0,0,0,0,0,0,0,0
  749.     .dc.w    0,0,0,0,0,0,0,0
  750.     .dc.w    0,0,0,0,0,0,0,0
  751.     .dc.w    0,0,0,0,0,0,0,0
  752.     .dc.w    0,0,0,0,0,0,0,0
  753.     .dc.w    0,0,0,0,0,0,0,0
  754.     .dc.w    0,0,0,0,0,0,0,0
  755.     .dc.w    0,0,0,0,0,0,0,0
  756.     .dc.w    0,0,0,0,0,0,0,0
  757.     .dc.w    0,0,0,0,0,0,0,0
  758.     .dc.w    0,0,0,0,0,0,0,0
  759.     .dc.w    32
  760.  
  761. men_dat2:
  762.     .dc.w    2,2,2,2,2,2,2,2
  763.     .dc.w    2,2,2,2,2,2,2,2
  764.     .dc.w    1,1,1,1,1,1,1,1
  765.     .dc.w    1,1,1,1,1,1,1,1
  766.     .dc.w    0,0,0,0,0,0,0,0
  767.     .dc.w    0,0,1,1,1,1,0,0
  768.     .dc.w    0,1,1,1,1,1,1,0
  769.     .dc.w    0,1,1,0,0,1,1,1
  770.     .dc.w    0,1,1,0,0,1,1,1
  771.     .dc.w    0,1,1,0,0,1,1,1
  772.     .dc.w    0,1,1,0,0,1,1,0
  773.     .dc.w    0,0,1,0,0,1,0,0
  774.     .dc.w    0,0,0,0,0,0,0,0
  775.     .dc.w    0,0,0,0,0,0,0,0
  776.     .dc.w    0,0,0,0,0,0,0,0
  777.     .dc.w    0,0,0,0,0,0,0,0
  778.     .dc.w    0,0,0,0,0,0,0,0
  779.     .dc.w    0,0,0,0,0,0,0,0
  780.     .dc.w    0,0,0,0,0,0,0,0
  781.     .dc.w    0,0,0,0,0,0,0,0
  782.     .dc.w    0,0,0,0,0,0,0,0
  783.     .dc.w    0,0,0,0,0,0,0,0
  784.     .dc.w    0,0,0,0,0,0,0,0
  785.     .dc.w    0,0,0,0,0,0,0,0
  786.     .dc.w    47
  787.  
  788. men_dat3:
  789.     .dc.w    2,2,2,2,2,2,2,2
  790.     .dc.w    2,2,2,2,2,2,2,2
  791.     .dc.w    0,1,0,0,0,0,0,0
  792.     .dc.w    0,2,0,0,0,0,1,0
  793.     .dc.w    0,1,0,0,1,0,2,0
  794.     .dc.w    1,0,0,0,2,0,1,0
  795.     .dc.w    2,0,0,0,1,1,0,0
  796.     .dc.w    1,1,0,1,0,2,0,0
  797.     .dc.w    0,2,0,2,0,1,0,0
  798.     .dc.w    0,1,0,1,0,0,1,0
  799.     .dc.w    0,0,0,0,0,0,2,0
  800.     .dc.w    0,1,0,0,0,0,1,0
  801.     .dc.w    0,1,0,0,0,1,0,0
  802.     .dc.w    0,0,0,1,0,1,0,0
  803.     .dc.w    0,0,0,1,0,0,0,1
  804.     .dc.w    0,0,0,0,0,0,0,0
  805.     .dc.w    0,0,0,0,0,0,0,0
  806.     .dc.w    0,0,0,0,0,0,0,0
  807.     .dc.w    0,0,0,0,0,0,0,0
  808.     .dc.w    0,0,0,0,0,0,0,0
  809.     .dc.w    0,0,0,0,0,0,0,0
  810.     .dc.w    0,0,0,0,0,0,0,0
  811.     .dc.w    0,0,0,0,0,0,0,0
  812.     .dc.w    0,0,0,0,0,0,0,0
  813.     .dc.w    23
  814.  
  815. men_dat4:
  816.     .dc.w    2,2,2,2,2,2,2,2
  817.     .dc.w    2,2,2,2,2,2,2,2
  818.     .dc.w    1,1,1,1,1,1,1,1
  819.     .dc.w    1,1,1,1,1,1,1,1
  820.     .dc.w    0,0,0,0,0,0,0,0
  821.     .dc.w    1,1,1,1,1,1,1,1
  822.     .dc.w    1,1,1,1,1,1,1,1
  823.     .dc.w    0,0,0,0,0,1,1,1
  824.     .dc.w    0,0,0,0,0,1,1,1
  825.     .dc.w    0,0,0,0,0,1,1,1
  826.     .dc.w    0,0,0,0,0,0,0,0
  827.     .dc.w    1,1,1,2,2,0,0,0
  828.     .dc.w    1,1,1,0,0,0,0,0
  829.     .dc.w    1,1,1,0,0,0,0,0
  830.     .dc.w    0,0,0,0,0,0,0,0
  831.     .dc.w    0,0,0,0,0,0,0,0
  832.     .dc.w    0,0,0,0,0,0,0,0
  833.     .dc.w    0,0,0,0,0,0,0,0
  834.     .dc.w    0,0,0,0,0,0,0,0
  835.     .dc.w    0,0,0,0,0,0,0,0
  836.     .dc.w    0,0,0,0,0,0,0,0
  837.     .dc.w    0,0,0,0,0,0,0,0
  838.     .dc.w    0,0,0,0,0,0,0,0
  839.     .dc.w    0,0,0,0,0,0,0,0
  840.     .dc.w    50
  841.  
  842. men_dat5:
  843.     .dc.w    2,2,2,2,2,2,2,2
  844.     .dc.w    2,2,2,2,2,2,2,2
  845.     .dc.w    0,0,0,0,2,2,2,2
  846.     .dc.w    0,0,0,0,0,2,2,2
  847.     .dc.w    1,1,1,0,0,0,2,2
  848.     .dc.w    1,1,1,0,0,0,0,2
  849.     .dc.w    1,1,1,1,0,0,0,0
  850.     .dc.w    1,1,1,1,0,0,0,0
  851.     .dc.w    1,1,1,1,1,0,0,0
  852.     .dc.w    1,1,1,1,1,0,0,0
  853.     .dc.w    1,1,1,1,1,1,0,0
  854.     .dc.w    1,1,1,1,1,1,0,0
  855.     .dc.w    1,1,1,1,1,1,1,0
  856.     .dc.w    1,1,1,1,1,1,1,0
  857.     .dc.w    0,0,0,0,0,0,0,0
  858.     .dc.w    0,0,0,0,0,0,0,0
  859.     .dc.w    0,0,0,0,0,0,0,0
  860.     .dc.w    0,0,0,0,0,0,0,0
  861.     .dc.w    0,0,0,0,0,0,0,0
  862.     .dc.w    0,0,0,0,0,0,0,0
  863.     .dc.w    0,0,0,0,0,0,0,0
  864.     .dc.w    0,0,0,0,0,0,0,0
  865.     .dc.w    0,0,0,0,0,0,0,0
  866.     .dc.w    0,0,0,0,0,0,0,0
  867.     .dc.w    50
  868.  
  869. men_dat6:
  870.     .dc.w    1,1,1,1,1,1,1,1
  871.     .dc.w    1,1,0,0,0,0,1,1
  872.     .dc.w    1,1,0,0,0,0,1,1
  873.     .dc.w    0,0,0,0,0,0,0,0
  874.     .dc.w    1,1,0,0,0,0,1,1
  875.     .dc.w    1,1,0,0,0,0,1,1
  876.     .dc.w    1,1,0,0,0,0,1,1
  877.     .dc.w    1,1,0,0,0,0,1,1
  878.     .dc.w    0,0,0,0,0,0,0,0
  879.     .dc.w    1,1,0,0,0,0,1,1
  880.     .dc.w    1,1,0,0,0,0,1,1
  881.     .dc.w    1,1,0,0,0,0,1,1
  882.     .dc.w    1,1,0,0,0,0,1,1
  883.     .dc.w    1,1,0,0,0,0,1,1
  884.     .dc.w    0,0,0,0,0,0,0,0
  885.     .dc.w    1,1,0,0,0,0,1,1
  886.     .dc.w    1,1,0,0,0,0,1,1
  887.     .dc.w    1,1,0,0,0,0,1,1
  888.     .dc.w    1,1,0,0,0,0,1,1
  889.     .dc.w    1,1,0,0,0,0,1,1
  890.     .dc.w    1,1,0,0,0,0,1,1
  891.     .dc.w    0,0,0,0,0,0,0,0
  892.     .dc.w    0,0,0,0,0,0,0,0
  893.     .dc.w    0,0,0,0,0,0,0,0
  894.     .dc.w    76
  895.  
  896. men_dat7:
  897.     .dc.w    1,1,1,1,1,1,1,1
  898.     .dc.w    1,0,0,0,0,0,0,1
  899.     .dc.w    1,0,1,1,1,1,0,1
  900.     .dc.w    1,0,1,1,1,1,0,1
  901.     .dc.w    1,0,1,1,1,1,0,1
  902.     .dc.w    1,0,1,1,1,1,0,1
  903.     .dc.w    1,0,2,2,2,2,0,1
  904.     .dc.w    1,0,0,0,0,0,0,1
  905.     .dc.w    1,0,0,0,0,0,0,1
  906.     .dc.w    2,0,0,0,0,0,0,1
  907.     .dc.w    2,1,1,0,0,1,1,1
  908.     .dc.w    2,1,1,0,0,1,1,1
  909.     .dc.w    2,2,2,0,0,2,2,2
  910.     .dc.w    0,0,0,0,0,0,0,0
  911.     .dc.w    0,0,0,0,0,0,0,0
  912.     .dc.w    1,0,0,1,1,0,0,1
  913.     .dc.w    1,0,0,1,1,0,0,1
  914.     .dc.w    0,0,0,0,0,0,0,0
  915.     .dc.w    0,0,0,0,0,0,0,0
  916.     .dc.w    0,0,0,0,0,0,0,0
  917.     .dc.w    0,0,0,0,0,0,0,0
  918.     .dc.w    0,0,0,0,0,0,0,0
  919.     .dc.w    0,0,0,0,0,0,0,0
  920.     .dc.w    0,0,0,0,0,0,0,0
  921.     .dc.w    59
  922.  
  923. men_dat8:
  924.     .dc.w    2,2,2,2,2,2,2,2
  925.     .dc.w    2,2,2,2,2,2,2,2
  926.     .dc.w    1,1,1,1,1,1,1,1
  927.     .dc.w    1,1,1,1,1,1,1,1
  928.     .dc.w    0,0,0,0,0,0,0,0
  929.     .dc.w    0,0,0,0,0,1,1,1
  930.     .dc.w    0,0,0,0,0,1,1,1
  931.     .dc.w    1,1,1,0,0,1,1,1
  932.     .dc.w    1,1,1,0,0,0,0,0
  933.     .dc.w    1,1,1,0,0,0,0,0
  934.     .dc.w    0,0,0,0,0,0,0,0
  935.     .dc.w    0,0,0,0,0,1,1,1
  936.     .dc.w    0,0,0,0,0,1,1,1
  937.     .dc.w    0,0,0,0,0,1,1,1
  938.     .dc.w    0,0,0,0,0,0,0,0
  939.     .dc.w    0,1,1,1,0,0,0,0
  940.     .dc.w    0,1,1,1,0,0,0,0
  941.     .dc.w    0,1,1,1,0,0,0,0
  942.     .dc.w    0,0,0,0,0,0,0,0
  943.     .dc.w    0,0,0,0,0,0,0,0
  944.     .dc.w    0,0,0,0,0,0,0,0
  945.     .dc.w    0,0,0,0,0,0,0,0
  946.     .dc.w    1,1,1,0,1,1,1,1
  947.     .dc.w    1,1,1,0,1,1,1,1
  948.     .dc.w    66
  949.  
  950. men_dat9:
  951.     .dc.w    1,1,1,2,2,2,2,2
  952.     .dc.w    1,1,1,2,2,2,2,2
  953.     .dc.w    1,1,1,2,2,1,1,1
  954.     .dc.w    0,0,0,2,2,1,1,1
  955.     .dc.w    1,1,1,2,2,0,0,0
  956.     .dc.w    1,1,1,2,2,0,0,0
  957.     .dc.w    1,1,1,2,2,0,0,0
  958.     .dc.w    0,0,0,2,2,0,0,0
  959.     .dc.w    1,1,1,2,2,0,0,0
  960.     .dc.w    1,1,1,2,2,0,0,0
  961.     .dc.w    1,1,1,2,2,0,0,0
  962.     .dc.w    0,0,0,2,2,0,0,0
  963.     .dc.w    0,0,0,0,0,0,0,0
  964.     .dc.w    0,0,0,0,0,0,0,0
  965.     .dc.w    0,0,0,0,0,0,0,0
  966.     .dc.w    0,0,0,0,0,0,0,0
  967.     .dc.w    0,0,0,0,0,0,0,0
  968.     .dc.w    0,0,0,0,0,0,0,0
  969.     .dc.w    0,0,0,0,0,0,0,0
  970.     .dc.w    0,0,0,0,0,0,0,0
  971.     .dc.w    0,0,0,0,0,0,0,0
  972.     .dc.w    0,0,0,0,0,0,0,0
  973.     .dc.w    0,0,0,0,0,0,0,0
  974.     .dc.w    0,0,0,0,0,0,0,0
  975.     .dc.w    33
  976.  
  977. men_dat10
  978.     .dc.w    2,2,2,2,2,2,2,2
  979.     .dc.w    2,2,2,2,2,2,2,2
  980.     .dc.w    2,2,2,2,2,2,2,2
  981.     .dc.w    2,2,2,2,2,2,2,2
  982.     .dc.w    1,1,0,0,0,0,0,0
  983.     .dc.w    1,1,0,0,0,0,0,0
  984.     .dc.w    0,0,0,0,0,0,1,1
  985.     .dc.w    0,0,0,0,0,0,1,1
  986.     .dc.w    0,0,0,0,0,0,0,0
  987.     .dc.w    0,1,1,1,1,1,1,0
  988.     .dc.w    0,1,1,1,1,1,1,0
  989.     .dc.w    0,2,2,2,2,2,2,0
  990.     .dc.w    0,1,0,1,1,0,1,0
  991.     .dc.w    0,2,2,2,2,2,2,0
  992.     .dc.w    0,1,1,1,1,1,1,0
  993.     .dc.w    0,1,1,1,1,1,1,0
  994.     .dc.w    0,0,1,0,1,0,1,0
  995.     .dc.w    0,0,0,0,0,0,0,0
  996.     .dc.w    0,0,0,0,0,0,0,0
  997.     .dc.w    0,0,0,0,0,0,0,0
  998.     .dc.w    0,0,0,0,0,0,0,0
  999.     .dc.w    0,0,0,0,0,0,0,0
  1000.     .dc.w    0,0,0,0,0,0,0,0
  1001.     .dc.w    0,0,0,0,0,0,0,0
  1002.     .dc.w    39
  1003.  
  1004. men_dat11
  1005.     .dc.w    2,2,2,2,2,2,2,2
  1006.     .dc.w    2,2,2,2,0,0,0,1
  1007.     .dc.w    2,2,0,0,0,2,2,2
  1008.     .dc.w    0,0,0,2,2,2,2,2
  1009.     .dc.w    1,1,2,1,1,1,1,1
  1010.     .dc.w    1,0,0,0,0,0,0,0
  1011.     .dc.w    1,0,1,1,1,1,1,1
  1012.     .dc.w    1,0,1,1,1,1,1,1
  1013.     .dc.w    1,0,1,1,1,1,1,1
  1014.     .dc.w    1,0,1,1,1,1,1,1
  1015.     .dc.w    1,0,1,1,0,0,0,0
  1016.     .dc.w    1,0,1,1,0,1,1,1
  1017.     .dc.w    1,0,1,1,0,1,1,1
  1018.     .dc.w    1,0,1,1,0,1,1,1
  1019.     .dc.w    1,0,1,1,0,1,1,1
  1020.     .dc.w    1,0,1,1,0,1,1,1
  1021.     .dc.w    1,0,0,0,0,0,0,1
  1022.     .dc.w    1,0,0,0,0,0,0,1
  1023.     .dc.w    1,0,0,0,0,0,0,1
  1024.     .dc.w    1,0,0,0,0,0,0,1
  1025.     .dc.w    1,0,0,0,0,0,0,1
  1026.     .dc.w    1,0,0,0,0,0,0,1
  1027.     .dc.w    1,0,0,0,0,0,0,1
  1028.     .dc.w    1,0,0,0,0,0,0,1
  1029.     .dc.w    86
  1030.  
  1031. men_dat12
  1032.     .dc.w    0,1,1,1,0,0,0,0
  1033.     .dc.w    1,1,1,1,1,0,0,0
  1034.     .dc.w    2,2,2,2,2,0,0,0
  1035.     .dc.w    0,1,1,1,0,0,0,0
  1036.     .dc.w    0,0,0,0,0,0,0,0
  1037.     .dc.w    0,0,0,0,0,0,0,0
  1038.     .dc.w    0,0,0,1,0,1,0,0
  1039.     .dc.w    0,0,1,1,1,1,1,0
  1040.     .dc.w    0,1,1,0,1,0,1,1
  1041.     .dc.w    0,0,1,1,1,1,1,0
  1042.     .dc.w    0,0,0,1,0,1,0,0
  1043.     .dc.w    0,0,1,0,0,0,1,0
  1044.     .dc.w    0,0,0,0,0,0,0,0
  1045.     .dc.w    0,0,0,0,0,0,0,0
  1046.     .dc.w    0,0,0,0,1,0,0,0
  1047.     .dc.w    0,0,0,0,1,0,0,0
  1048.     .dc.w    0,0,0,0,1,0,0,0
  1049.     .dc.w    0,0,0,0,0,0,0,0
  1050.     .dc.w    0,0,0,0,0,0,0,0
  1051.     .dc.w    0,0,0,0,0,0,0,0
  1052.     .dc.w    1,1,1,0,0,1,1,1
  1053.     .dc.w    1,1,1,0,0,1,1,1
  1054.     .dc.w    1,0,1,0,0,1,0,1
  1055.     .dc.w    0,0,0,0,0,0,0,0
  1056.     .dc.w    51
  1057.  
  1058. men_dat13
  1059.     .dc.w    2,2,1,1,1,1,2,2
  1060.     .dc.w    1,1,1,1,1,1,1,1
  1061.     .dc.w    1,1,1,1,1,1,1,1
  1062.     .dc.w    1,1,1,1,1,1,1,1
  1063.     .dc.w    2,2,1,1,1,1,1,1
  1064.     .dc.w    1,1,1,1,1,1,2,2
  1065.     .dc.w    1,1,1,1,1,1,1,1
  1066.     .dc.w    1,1,1,1,1,1,1,1
  1067.     .dc.w    1,1,1,1,1,1,1,2
  1068.     .dc.w    2,2,1,1,1,1,1,1
  1069.     .dc.w    1,1,1,1,1,1,2,1
  1070.     .dc.w    1,1,1,1,1,1,1,1
  1071.     .dc.w    1,1,1,1,1,1,1,1
  1072.     .dc.w    2,2,1,1,1,1,2,2
  1073.     .dc.w    1,1,1,1,1,1,1,1
  1074.     .dc.w    1,1,1,1,1,1,1,1
  1075.     .dc.w    1,1,1,1,1,1,1,1
  1076.     .dc.w    0,0,0,0,0,0,0,0
  1077.     .dc.w    0,0,0,0,0,0,0,0
  1078.     .dc.w    0,0,0,0,0,0,0,0
  1079.     .dc.w    0,0,0,0,0,0,0,0
  1080.     .dc.w    0,0,0,0,0,0,0,0
  1081.     .dc.w    0,0,0,0,0,0,0,0
  1082.     .dc.w    0,0,0,0,0,0,0,0
  1083.     .dc.w    120
  1084.  
  1085. men_dat14
  1086.     .dc.w    0,0,0,0,0,0,0,0
  1087.     .dc.w    2,2,2,0,0,2,2,2
  1088.     .dc.w    2,0,0,2,2,0,0,2
  1089.     .dc.w    2,0,0,0,2,2,0,2
  1090.     .dc.w    0,2,0,0,0,2,2,0
  1091.     .dc.w    0,2,2,0,0,0,2,0
  1092.     .dc.w    2,0,2,2,0,0,0,2
  1093.     .dc.w    2,0,0,2,2,0,0,2
  1094.     .dc.w    2,2,2,0,0,2,2,2
  1095.     .dc.w    0,0,0,0,0,0,0,0
  1096.     .dc.w    0,2,2,2,0,2,2,2
  1097.     .dc.w    0,2,0,0,0,2,0,2
  1098.     .dc.w    0,2,2,2,0,2,2,2
  1099.     .dc.w    0,2,0,2,0,2,0,2
  1100.     .dc.w    0,2,2,2,0,2,2,2
  1101.     .dc.w    0,0,0,0,0,0,0,0
  1102.     .dc.w    0,0,0,0,0,0,0,0
  1103.     .dc.w    2,2,2,2,2,2,2,2
  1104.     .dc.w    1,1,1,1,1,1,1,1
  1105.     .dc.w    1,1,1,1,1,1,1,1
  1106.     .dc.w    0,0,0,0,0,0,0,0
  1107.     .dc.w    0,0,0,0,0,0,0,0
  1108.     .dc.w    0,0,0,0,0,0,0,0
  1109.     .dc.w    0,0,0,0,0,0,0,0
  1110.     .dc.w    16
  1111.  
  1112. men_dat15
  1113.     .dc.w    2,2,2,2,2,2,2,2
  1114.     .dc.w    2,2,2,2,2,2,2,2
  1115.     .dc.w    2,2,2,2,2,2,2,2
  1116.     .dc.w    2,2,2,2,2,2,2,2
  1117.     .dc.w    1,1,1,0,0,1,1,1
  1118.     .dc.w    1,1,1,0,0,1,1,1
  1119.     .dc.w    1,1,1,0,0,0,0,0
  1120.     .dc.w    1,1,1,0,0,0,0,0
  1121.     .dc.w    1,1,1,0,0,0,0,0
  1122.     .dc.w    1,1,1,0,0,0,0,0
  1123.     .dc.w    1,1,1,2,2,0,0,1
  1124.     .dc.w    1,0,0,1,1,0,0,1
  1125.     .dc.w    1,0,0,1,1,0,0,1
  1126.     .dc.w    1,0,0,1,1,0,0,1
  1127.     .dc.w    1,0,0,1,1,0,0,1
  1128.     .dc.w    1,0,0,2,2,1,1,1
  1129.     .dc.w    0,0,0,0,0,1,1,1
  1130.     .dc.w    0,0,0,0,0,1,1,1
  1131.     .dc.w    0,0,0,0,0,1,1,1
  1132.     .dc.w    0,0,0,0,0,1,1,1
  1133.     .dc.w    1,1,1,0,0,1,1,1
  1134.     .dc.w    1,1,1,0,0,1,1,1
  1135.     .dc.w    2,2,2,0,0,2,2,2
  1136.     .dc.w    2,2,2,0,0,2,2,2
  1137.     .dc.w    72
  1138.  
  1139. men_dat16
  1140.     .dc.w    1,1,1,1,1,1,1,1
  1141.     .dc.w    2,2,2,1,1,2,2,2
  1142.     .dc.w    0,0,0,0,0,0,0,0
  1143.     .dc.w    1,0,0,0,1,1,1,0
  1144.     .dc.w    1,0,0,0,1,0,1,0
  1145.     .dc.w    1,0,0,0,1,1,1,0
  1146.     .dc.w    1,0,0,0,1,0,1,0
  1147.     .dc.w    1,1,1,0,1,0,1,0
  1148.     .dc.w    0,0,0,0,0,0,0,0
  1149.     .dc.w    0,1,1,1,0,1,1,1
  1150.     .dc.w    0,1,0,0,0,0,1,0
  1151.     .dc.w    0,1,1,1,0,0,1,0
  1152.     .dc.w    0,0,0,1,0,0,1,0
  1153.     .dc.w    0,1,1,1,0,0,1,0
  1154.     .dc.w    0,0,0,0,0,0,0,0
  1155.     .dc.w    1,1,2,1,1,1,2,1
  1156.     .dc.w    0,1,1,1,1,1,1,0
  1157.     .dc.w    0,2,1,1,2,1,1,0
  1158.     .dc.w    0,1,1,1,1,1,2,0
  1159.     .dc.w    0,1,2,1,1,1,1,0
  1160.     .dc.w    0,1,1,1,1,2,1,0
  1161.     .dc.w    0,1,1,2,1,1,1,0
  1162.     .dc.w    0,2,1,1,1,1,2,0
  1163.     .dc.w    0,1,1,1,2,1,1,0
  1164.     .dc.w    92
  1165.  
  1166. pdl_x:
  1167.     .dc.w    128
  1168. ball_x:
  1169.     .dc.w    128+8
  1170. ball_y:
  1171.     .dc.w    224+7
  1172. old_y:
  1173.     .dc.w    224+7
  1174. b_m_x:
  1175.     .dc.w    1
  1176. b_m_y:
  1177.     .dc.w    0
  1178. dead:
  1179.     .dc.w    0
  1180. ziki_kazu:
  1181.     .dc.w    3
  1182.  
  1183. sp_fname:
  1184.     .dc.b    'rp.sp',0
  1185.     .even
  1186. pal_fname:
  1187.     .dc.b    'rp.pal',0
  1188.     .even
  1189. bgm_fname:
  1190.     .dc.b    'rp.zmd',0
  1191.     .even
  1192. fname:
  1193.     .dc.b    'title.g',0
  1194.     .even
  1195.  
  1196. fname1:
  1197.     .dc.b    'end.g',0
  1198.     .even
  1199.  
  1200. omedeto:
  1201.     .dc.b    '　　　　　　　　　　　　　　クリア～おめでとおおおお！！！',$0d,$0a,0
  1202.     .even
  1203.  
  1204.  
  1205.     .bss
  1206.     .even
  1207.  
  1208. bgm_buf:
  1209.     .ds.b    737
  1210.     .even
  1211.  
  1212. SPR:
  1213.     ds.b    384
  1214.     .even
  1215.  
  1216. PAL:
  1217.     ds.b    32
  1218.     .even
  1219. BUF:
  1220.     ds.b    128*1024
  1221.     .even
  1222.  
  1223.     .stack
  1224.     .even
  1225.  
  1226. mystack:
  1227.     .ds.l    256
  1228. mysp:
  1229.     .end
  1230.